home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / neural network tool and application / nsinstall.exe / data1.cab / InteractiveBook_Files / Examples / Chapter1 / R-value / 2 add r-value dll.nsm < prev    next >
Encoding:
Text File  |  2002-03-08  |  1.9 KB  |  50 lines
  1. //////activeBreadboard. lockWindowUpdate()
  2. subtitleTextBox. setText ("")
  3. mainTextBox. setText ("")
  4. //
  5. // add rsquared dll postprocessor
  6. //
  7. activeBreadboard. setAnimatePoint ( 315 , 308 )
  8. activeBreadboard. stampAndMove ( "L2Criterion" , "criterion1" )
  9. activeBreadboard. select ( "outputAxon" , FALSE )
  10. activeBreadboard. select ( "criterion1" , FALSE )
  11. outputAxon. connectTo ( "criterion1" )
  12. activeBreadboard. stampOnAndMove ( "File" , "criterion1" )
  13. file. setActiveAccessPoint ( "Desired Signal" )
  14. activeBreadboard. select ( "file" , FALSE )
  15. filePath=macro.pathFromMacro("regression desired.asc")
  16. file. addFile ( filePath , FALSE )
  17. file. setNormalize ( FALSE )
  18. dllPath=macro.pathFromMacro("cctest.dll");
  19. criterion1. setDLLName ( "cctest" , dllPath )
  20. criterion1. activateDLL ( TRUE )
  21. criterion1. setName ( "r2DLL" )
  22. activeBreadboard. stampOnAndMove ( "MatrixViewer" , "r2DLL" )
  23. matrixViewer. setActiveAccessPoint ( "Average Cost" )
  24. matrixViewer. openEngineWindow (  )
  25. activeBreadboard. select ( "matrixViewer" , FALSE )
  26. matrixViewer. setEnableLabels ( TRUE )
  27. matrixViewer. setLabel ( "" )
  28. matrixViewer. setAccessRows ( FALSE )
  29. matrixViewer. setLabel ( "Corr. Coeff." )
  30. matrixViewer. setFixWindowTitle ( TRUE )
  31. matrixViewer. setWindowTitle ( "r-value" )
  32. matrixViewer. setName ( "RViewer" )
  33. RViewer.tileWindow(4,4,6,6)
  34.  
  35. control. setEpochs ( 3 )
  36. control. resetNetwork (  )
  37. control. runNetwork (  )
  38. //
  39. // fill in text
  40. //
  41. TextBoxPath = macro. pathFromMacro("textbox1.txt")
  42. NextMacroPath = macro. pathFromMacro ( "3 r-value summary.nsm" )
  43. nextButton. setMacroPath ( NextMacroPath )
  44. CancelMacroPath= macro.pathFromMacro("..\minimize.nsm")
  45. cancelButton. setMacroPath ( CancelMacroPath)
  46. TitleIndex = titleTextBox. setTextFromFile (TextBoxPath, 0)
  47. SubtitleIndex = subtitleTextBox. setTextFromFile (TextBoxPath, 0)
  48. MainIndex = mainTextBox. setTextFromFile (TextBoxPath, 0)
  49. //////activeBreadboard. unlockWindowUpdate()
  50.